*&---------------------------------------------------------------------*
*& 包含               LZFG_BC_ALVF01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form frm_check_subrc
*&---------------------------------------------------------------------*
*& 检查GO_APPLICATION是否启动成功
*&---------------------------------------------------------------------*
*&      --> SY_SUBRC
*&---------------------------------------------------------------------*
FORM frm_check_subrc  USING p_subrc.
  CASE p_subrc.
    WHEN 1.
      MESSAGE '没有找到调用程序' TYPE 'S' DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
    WHEN 2.
      MESSAGE '没有找到调用子例程（FRM_CALL_SCREEN）' TYPE 'S' DISPLAY LIKE 'E'.
      LEAVE LIST-PROCESSING.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form frm_call_screen
*&---------------------------------------------------------------------*
*& 调用屏幕
*&---------------------------------------------------------------------*
*&      --> p_screen
*&---------------------------------------------------------------------*
FORM frm_call_screen USING p_screen.
  CALL SCREEN p_screen.
ENDFORM.
